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MACSCRF SUB SUBROUTINES FOR USE WITH CREF /MACRO 19:49 VAX/VMS Macro v04-00 1 


16-SEP-1984 02: Page 
v04-000 iets fi Sear EMACRO SRe CRFSUB.MAR; 1 . (1) 

8° 1 TITLE MAcecer sys SUBROUTINES FOR USE WITH CREF /MACRO 

0 § -IDENT 'v04-00 

$00 

0900 5 WITTITITITIII ITI IIIT IIIT TIT LTLTiii tii iiili titi iiiiiitiitt iii titi iii it titi 

se 

000 5 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0000 8 :* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
44 1 :* ALL RIGHTS RESERVED. : 
0000 11 :* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
8008 \ z* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

00 15 ;* LUSION OF ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0000 14 ;* COPIES THEREOF MAY NOT B VIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
B00 18 + TRANSFERRED. * 

; & 

0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 $s :* CORPORATION. : 
0000 $$ * DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 24 3 * 
0000 25 ;* * 
0000 $8 RRA AAA A AAA TATA RATATAT AAA AAA ATA KARAT Tee AeA Kee AAA eee KATATE Tee 
0000 3 

0000 $5 
0000 $9 304 
i464 : 3 FACILITY: VAX MACRO ASSEMBLER OBJECT LIBRARY 
9000 i ABSTRACT: 
0000 4 : The VAX-11 MACRO assembler translates MACRO-32 source code into object 
4 32 3; modules for input to the VAX-11 LINKER. 
9009 s : ENVIRONMENT: USER MODE 
9000 39 : AUTHOR: Benn Schreiber, CREATION DATE: 28-AUG-78 
0900 41 : MODIFIED BY: 

000 4g 3 
0000 43; V01.06 RNO0D24 R. Newland 13-Dec-1979 

0900 rt: ; Change cref output routine argument processing. 

0 46 : v01.05 RNOOOS R. Newland 13-Aug-1979 

4 ? 3 Variable symbol name storage and remove .ALIGN LONG statments 

000 rt : v0O1.04 RNOOO2 R. Newland 01-Feb-1979 

000 29 : Changes for Source Update nergs convert Line number 

4 23 : into update format for update line 
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MACSCRFE SUB SUeROY TINES FOR USE WITH CREF/MACRO 16-SEP-1984 ee VAX/VMS Macro v04-00 Page 3 
v04-000 DECLARATIONS 5-SEP=1984 01:47:44 (CMACRO.SRCICRFSUB.MAR; 1 (2) 
4 2¢ ~SBTTL DECLARATIONS 
$0 28 3; INCLUDE FILES: 
00 at 3 
00 58 
i 59 ; 
00 60 ; MACROS: 
0000 61 ; 
0000 86 SMAC_CTLFLGDEF DEFINE CONTROL FLAGS 
0000 6 SMAC_SYMBLKDEF ;DEFINE SYMBOL BLOCK OFFSETS 
0000 64 SMAC_CRFLAGDEF DEFINE CREF on ROL FLAGS 
$000 65 SMAC_MNBDE ;DEFINE MACRO NAME BLOCK 
0 66 $MAC_OPRDEF ;DEFINE OPERAND DESCRIPTOR BITS 
0008 67 SRABBEF ;DEFINE RAB OFFSETS 
0008 68 DEF SUMCBL ; Define SUM control block symbols 
0008 69 
0008 70 
00000000 71 -PSECT MACS$RO_CODE_P15,NOWRT,GBL,LONG 
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MACSCRF SUB SUBROUTINES FOR USE WITH CREF/MACRO 16-SEP-1984 02:19:49 VAX/VMS Macro V04-00 Page ; 
v04-000 MACSCVT_LIN_PAG CONVERT LINE/PAGE TO ASC 5=SEP=1984 01:47:44 ([CMACRO.SRCICRFSUB.MAR;: 1 (3) 
£08 te ~SBTTL MACSCVT_LIN_PAG CONVERT LINE/PAGE TO ASCII FOR CREF 
75 3+¢ 
0 £6 ; FUNCTIONAL DESCRIPTION: 
0 78 ; THIS ROUTINE CONVERTS THE CURRENT LINE/PAGE NUMBER INTO ASCII 
0 29 ; IN MACS$AB_LPBUF TO USE WHEN CALLING CREF WITH A REFERENCE 
4 BO ; OR DEFING THOR 
0000 Be : ; THE LINE AND PAGE NUMBERS ARE RETURNED IN THE FOLLOWING FORMAT: 
444 Be: : LLLLL (PPPP) 
0000 86 ;-- 
0000 87 
0000 88 MACSCVT_LIN_PAG:: 
0000'CF 9F 0000 89 PUSAAB W*MACSAB_LPBUF :STACK BUFFER ADDRESS 
00 BE 10 20 6€ 00 2¢ 0004 90 Movs #0,(SP),R*A/ /,#16,a(SP) :BLANK FILL THE BUFFER 
51 6€ dO 0008 91 MOVL (SB) RY" :POINT TO Th E BUFFER 
81 94 O00E 5 CLRB (R1)+ SLEAVE ROOM FOR COUNT BYTE | 
0000'CF 3c 001 93 MOVZWL W*MACSGW_LST_LINE ; Get Li sting Line number 
14 6B 27 #2€1 0015 94 BBC zuLaey “UPDFIE. (RIT), 10$ ; grenen if input file is not being updated | 
OOIC'CF O02 €1 0019 95 BBC #SUM_V"SRCUPD, - ; Branch if Line is not an update 
OE OO1E 96 W*MACSGT S¢B+SuM _B_FLAGS,10$ 
FFDE* 30 OO1F 97 BSBW MACSDEC _GuT 3; Convert Line number 
51 50 6o0 Base 98 MOVL RO, ie ; Reset character ougpyt pointer 
2E 90 002 99 MOVB #A/./ ; Insert separating ' 
50 O000'CF 3C 0028 100 MOVZWL uomacseur U3 INST,RO Get insert number 
FFDO' 30 9080 101 10$: BSBW = =©MACSDEC_OuT_C2x CONVERT LINE NUMBER 
51 —E 07 C1 0030 102 ADDL3 #7 (SP) <RI ;SKIP TO PAGE # FIELD 
81 2820 8F BO 0034 103 MOVW #A/ (/5(R1)4 :START THE PAGE R 
50 0000'CF 00 0039 104 MOVL W°MACSGL_SRCPAG,RO 7GET SOURCE PAGE NUMBER 
FF 0 OO3E 105 BSBW MACSDEC BuUT_Lex :CONVERT PAGE NUMBER 
80 90 0041 106 MOVB #*A/)/,TRO)F zFINISH PAGE NUMBER 
1 BEDO 0044 107 POPL Rt POINT TO BUFFER START AGAIN 
50.51 Ce 0047 108 SUBL R1,R0 :FIGURE LENGTH OF STRING 
61 50 01 83 004A 109 SUBB #1,R0,(R1) :GET REAL LENGTH AND STORE IT 
05 O04E 110 RSB 
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ITH CREF /MACRO i te 9 pe 19:4? AX/VMS Macro V04-00 Page 
R FOR CREF ERRORS -SEP-1984 147:44 MACRO.SRCJCRFSUB.MAR; 1 


~SBTTL MACSCREF_ERROR HANDLER FOR CREF ERRORS 


om 


++ 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS CALLED FROM CREF ON AN ERROR 


MACSCRF _ERROR: : 
. WORD 


0 0 ZREGISTER SAVE MASK 
MOVL RO.W“MACSGL_STATUS ‘SET LATEST STATUS FOR EXIT 
PUSHL # ‘NO FAO ARGUMENTS 
PUSHL R SSTACK THE ERROR CODE 
PUSHL # S THERE ARE TWO LONGWORDS IN PACKET 
PUSHAQ W*MACSMACRO_NAME [STACK ADDRESS OF FACILITY NAME 
CLRL = =( SP) :ZERO ADDRESS OF ACTION ROUTINE 
PUSHAB 8(SP) ‘PUSH ADDRESS OF MESSAGE BUFFER 
CALLS #3,G*°SYSSPUTMSG SPRINT THE CREF ERROR 
BRW MACSLAST_CHANCE [GO DIE UNGRACEFULLY 


~SBTTL MACSCRF_OUTPUT OUTPUT CROSS-REFERENCE LINE 


FUNCTIONAL DESCRIPTION: 

THIS ROUTINE IS CALLED BY CREF TO OUTPUT A LINE: 
CALLING SEQUENCE: 

CALLS #1,MACSCRF_OUTPUT 
INPUTS: 

4(AP) Address of Line descriptor 


MACSCRF_OUTPUT: : 
. WORD 


s 
sWRITE LINE TO LISTING 


“M<R11> 3IN CASE WE NEED TO DO NEW PAGE 
BBC WFLGSV_LSTXST,W*MACSGL_FLAGS,20$ ;BRANCH IF NO LISTING FILE! 
TSTL W*MACSGL_LINE_CNT STIME FOR NEW PAGE? 
BGTR 10$ s1F GTR NO 
MOVAB W*“*MACSGL_FLAGS,R11 sENSURE R11 POINTS TO FLAGS WORD 
BSBW MACSLST_PAG HDR 7 YES--OUTPUT PAGE HEADER 
10$: DECL W°MACSGC_LINE_CNT ;DEC. LINES LEFT ON PAGE 
MOVAB WeMACSL IST _RAB.RO sPOINT TO LISTING RAB 
MOVL 4(AP),R ; Get address of Line descriptor 
MOVW (R1) ,RABSW_RSZ(RO) ; Set record size 
MOVL 4(R1) ,RABSC_RBF (RO) 3 and record addres 
$PUT eer 


“MACSERR_PUT 
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MACSCRF SUB SUBROUTINES FOR USE WITH CREF /MACKO 16-SEP-1984 02:19:49 VAX/VMS Macro V04-00 Page 5 
v04-000 MACSCREF_SYM EMIT CROSS REFERENCE INFO F = SEE =1 38% eae e MACRO. SRCICRFSUB.MAR; 1 . (5) 
a9 166 ~SBTTL MACSCREF_SYM EMIT CROSS REFERENCE INFO FOR SYMBOL 
AS 198 g+4 
ne 192 3 FUNCTIONAL DESCRIPTION: 
OA9 «171; THIS ROUTINE IS CALLED TO OUTPUT CROSS REFERENCE INFORMATION 
BOA 126 : FOR A SYMBOL TO THE CROSS-REFERENCER. 
OA9 174 ; INPUTS: 
OAg 175 ; 
A9 176 ; R5 CRFSK_REF OR CRFSK_DEF 
OA8 177 ;: Rb SYMBOL BLOCK ADDRESS 
A9 108 5 
QAI «179 3-- 
QOA9 =180 
QOA9 181 MACSCREF_SYM:: 
04 €1 OOAD 1 j BBC #CRESV SYMBOLS = :BRANCH IF NOT CREFFING SYMBOLS 
63 0000'CF 0OAB O18 W*°MACSGL_CRF_FL 
SF 6B 1F EO OOAF 184 BBS FFLGSV_XCRF. 7R115, 30$ tBRA NCH IF .NOCROSS IN EFFECT 
5A 09 A6 «6006~—=SC EO «=—(00B3~—s«185 BBS #SYMSV-LOCAL, SYMSW_FLAG(R6),30$ ;DON'T CREF LOCAL SYMBOLS 
5509 a6 «600C~C#ESO 0088 186 a #SYMSVXCRF,SYMSW_FLAG(R6),30$ ;BRANCH IF .NOCROSS THIS SYMBOL 
QOOBD 188 ; NEXT INSTRUCTION DEPENDS ON CRFSK_DEF=1 
QOOBD 189 ;xexe8 
05 55 £8 OO0BD 190 BLBS R5,5$ BRANCH IF DEFINITION 
1A 09 A6 OD Ee 90c9 191 BBSS asiisv CRFO,SYMS$W FLAG(RO) 10$ ;BR ANCH IF INSERT KEY DONE 
7E 09 AB 3C 00C 198 5$ MOVZWL SYMSW_FLAG(R6) ,-(SP) NO--1 ween KEY NOW 
05 a6 «OOF «=00C9~—Ct—s«*19 PUSHAB tt he VAC RED STACK ADDRESS OF VALUE 
50 04 A6 9A OOCC 194 MOVZBL SYM$B_NAME(R6),RO : poe offset to counted name 
7E 6 50 C3 O0D0 195 SUBL RO,R Ss form its address on stack 
OOOO'CF SF 00D4 196 PUSHAB W"MACSAL CRFSYCTB STACK CONTROL TABLE ADDRESS 
00000000'GF 04 FB O00D8 197 CALLS #4,G*CRFSINSRTKEY SINSERT THE KEY IN CREF TABLE 
55 DD OODF 198 10$: PUSHL R5 SSTACK REF/DEF FLAG 
00 oD 90e 1 199 PUSHL #0 yASSUME A READ REFERENCE 
50 0000'CF 0 0E3 200 MOVL  W*MACSGL_MOPPTR,RO GET POINTER TO OPERAND BYTES 
OA 13 O0E8 01 BEQL nd) L NOT INSTRUCT ION--MUST BE READ 
60 0060 8F Bs QOEA 0¢ BITW § #OPDSM_MODIFY!OPDSM “write (R ) s1S IT MODIFY OR WRITE? 
03 13 OOEF 20 BEQL 20% iff 4 NO-=NOT DESTRUCTIVE 
01 00 OOF} 04 MOVL #1, (SP) YESe HANK FLAGS AS SUCH 
Q0000'CF 9F F4 5 20$: PUSHAB W“MACSAB : STACK REFERENCER NAME ADDRESS 
5 04 A6 9A O0F8 6 sity y SYM$B SNARE (ROD RO ; Get offset to counted name 
7E 56 50 C3 OOFC 0 SUBL RO,R P) : and form its address on stack 
0000'CF 9F 0100 08 PUSHAB W"AACEAL CRFSYCTB sSTACK CONTROL TABLE ADDRESS 
FEF9 30 0104 09 BSBW MACSCV LtIN CONVERT LINE/PAGE INTO LPBUF 
00000000'GF 05 FB 107 10 CALLS #5, SSR INSRIGEF s INSERT REF/DEF INTO CREF TABLE 
000° CF 6 0106 af oi Incl W*MACSGL_CRF_CNT :COUNT SYMBOL AS CREFFED 


MACSCRF SUB SUBROUTINES FOR USE WITH CREF /MACRO 16-SEP-19 19:49 yaneyae Macro V04-00 Page 6 
y0%.000 MACSCREF MACRO EMIT CROSS REFERENCE INFO eset 7 ge: 247:44 YRACRO SRe CRFSUB.MAR; 1 . (6) 
1} 1 ~SBTTL MACSCREF_MACRO EMIT CROSS REFERENCE INFO FOR MACRO 
11 16 p++ 
1} ! 3 FUNCTIONAL DESCRIPTION: 
11 i§ ; THIS ROUTINE IS CAL LED TO OUTPUT CROSS REFERENCE INFORMATION FOR 
1 y rs A MACRO TO THE CROSS-REFERENCER. 
1 ¢ 3; INPUTS: 
84 4; RS CRFESK_REF OR CRFSK_DEF 
gi 3 3 R6 MACRO NAME BLOCK ADDRESS 
011 5 -- 
011 8 
011 9 MACSCREF_MACRO:: 
01 E171 O11 0 8ac #CRFSV pacces - peegyg: IF NOT CREFFING MACROS 
45 0000'CF 011 31 W“MACSGL_CRF_FLG 398 
41 68 1F 3 0119 3 BB WFLOSv_XCRE TRITS~ 0$ ANCH IF .NOCROSS IN EFFECT 
1A 09 A6 OD § 011D #SYMSV_CRFO,MNBSW_FLA niet 10$ ;BRANCH IF INSERT DONE THIS MACRO 
7E 09 AG 3C 0122 4 MOVZWL MNBSW_FLAG(R6),-(SP) | ;NO--INSERT KEY NOW 
A6- OF 126 5 PUSHAB MNBSL_PAGC(R6) ; STACK ADDRESS OF PAGE COUNT 
50 04 48 9A 0129 § MOVZBL MNBSB_NAME(R6) ,RO ; Get offset to counted name 
7E oF C3 012d 3 RO,R6,-(SP) : and form its address on stack 
000 OF 0131 38 PUSHAB W*MAC$AL CRFMCCTB ;STACK CONTROL TABLE ADDRESS 
00000000 ' GF a FB 0135 39 CALLS #4,G*CRFSINSRTIKEY s INSERT KEY INCREF TABLE 
DD 013C 40 10$: PUSHL R5- + STAKC REF/ LA 
DD O13E 41 PUSHL #0 ;PUSH REFERENCER FLAGS (NYI) 
0000' oP SF 0140 ¢g PUSHAB W“*MACS$AB_LPBUF ST ACK REFERENCER NAME ADDRESS 
50 04 A6 QA 0144 $¢ MOVZBL mess oNARE CRO) « RO ; Get offset to counted name 
7c.|hUSSCSCiédESSS:COé« GG 44 SUBL (SP) and form its address on stack 
0000'CF OF O14C 245 PUSHAB Se ancéay CRFMCCTB STACK CONTROL TABLE ADDRESS 
FEAD 30 8138 246 BSBW MACSCVT_CIN_PAG ; CONVERT LINE/PAGE INTO LPBUF 
00000000 ' GF 05 FB 015 247 CALLS #5,G*CRFSINSRTREF SINS ERT REF/DEF INTO CREF TABLE 
0000'CF 4 brat $e3 308 pact W*MACSGL_ CRF _MCNT ;COUNT MACRO AS CREFFED 
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-SBTTL MACSCREF_OPCODE EMIT CREF INFO FOR OPCODE 
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p++ 
: FUNCTIONAL DESCRIPTION: 
re eee IS CALLED TO OUTPUT CREF INFORMATION FOR AN 


INPUTS: 


MACSCREF_OPCODE:: 
BBC 


Sete Ge Ge Ge Ge Ge Ge Ge 


PUSHL #0 
PUSHAB SYMSL_VAL 
MOVZBL SYMSB_NAM 


SUBL ,R6,- 
PUSHAB W*MAC$AL 
CALLS 


#4 
PUSHL ‘ R 


PUSHAB W*MACSAB_LPBUF 
aure SYRSS NARS (RG) RO 


RO,R6,- 
PUSHAB W°MAC$AL_CRFOPCTB 
B MACSCVT_CIN PAG 
CALLS 4#5,G*°CRFSINSRTREF 
IN WMACSGL_CRF_OCNT 
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AX/VMS Macro v04-00 
MACRO.SRCJCRFSUB.MAR; 1 


R6 POINTS TO SYMBOL BLOCK 


#CRFESV_OP 
BBS #FLGSVIXC 


BECAUSE THE OPCODE TABL 
AN INSERT KEY. SORRY ABOU 


GL_CRF_FLG,30$ ;BRANCH IF NOT CREFFING OPCODES | 
sBRANCH IF .NOCROSS IN EFFECT 


ad MEMORY, WE MUST ALWAYS DO 


; Get offset to counted name 
3_and form its address on stack 
3sSTACK CONTROL TAB 

s INSERT THE KEY 

sTHIS IS A REFERENCE 
sREFERENCER FLAGS 

3STACK REFERENCER NAME ADDRESS 
3; Get offset to counted name 

3; _and form its address on stack 


MACSCRE SUB SUBROUTINES FOR USE WITH CREF/MA acho’ Ig-SE SEP p= 1984 02:19:49 AX/VMS Macro V04-00 Page : 
v04-000 MACSCREF_DIR EMIT CREF INFO FOR DIRECTIV P=1984 01:47:44 [CMACRO.SRCICRFSUB.MAR; 1 (8) 
A 89 .SBTTL MACSCREF_DIR EMIT CREF INFO FOR DIRECTIVE 
1A 91 3++ 
A 36 : FUNCTIONAL DESCRIPTION: 
1A 94 : THIS ROUTINE IS CALLED TO OUTPUT CREF INFORMATION FOR A 
1A 9° ; DIRECTIVE. 
A 3 : INPUTS: 
1A 99 : R1 POINTER TO DIRECTIVE SYMBOL BLOCK 
gn 
O1A 6S MACSCREF_DIR:: 
4D OOOO'CF 00 €1 OIA 04 6BC #CRFSV_DIR WOMACSGL CRF_FLG,30$ ;BRANCH IF NO CREF OF DIRECTIVES 
49 68 1F £0 OIA 05 BBS #FLGSVIXCRF,(R11),30$ ~;BRANCH IF .NOCROSS IN EFFECT 
01B 07 THE DIRECTIVE TABLE, LIKE THE OPCODE TABLE, IS IN READ-ONLY MEMORY. 
018 08 : THUS, WE MUST ALWAYS DO AN INSERT KEY. 
51 oD 018 10° PUSHL 1 :SAVE R1 (PTR TO SYM BLK) 
00 oD 0184 11 PUSHL #0 TSTACK FLAGS 
00000000'EF 9F 01B6 1 PUSHAB L“MACS$GK_ZERO ; STACK VALUE 
04 Al 9A OBC 1 MOVZBL SYM$B SNARE CRY), RO g Get gt tser to counted name 
7E 51 / ees Bie? 14 SUBL RO,R SP ts address on stack 
0000'CF SF 01C4 315 PUSHAB W*MAC$AL_ CRFDRCTB STACK CONTROL TABLE ADDRESS 
00000000'GF 04 FB O01C8 316 CALLS #4,G°CRFSINSRTKEY ‘INSERT THE KEY 
E pO O1CF 17 MOVL  (SP),R1 SREGET SY mBOL BLOCK ADDRESS 
00000000'8F oD O18 18 PUSHL perrée _REF :THIS 1S A REFERENCE 
00 oD 01D 19 PUSHL #0 i REFERENCER R FLAGS 
0000'CF 9F ODA 320 PUSHAB W*MACSAB_LPBUF SREFERENCER NAME ADDRESS 
50 04 Al 9A BIDE 21 ROvzRL SYM$B NABER RO 3; Get offset to counted name 
7 © 61 50 6¢3 BIE $§ SUBL R1>- 3; and form its address on stack 
0000'CF SF O16 32 PUSHAB UARC$AL CREDRCTB * STACK CONTROL TABLE ADDRESS 
FEI3. 30 ~O1EA =. 324 BSBW ACSCVT_CIN PA :CONVERT LINE/PAGE 
00000000'cF 05 FB O1ED 325 CALLS #5,G*CRFSINSRTREF i INSERT REFERENCE 
0000'CF 06 O1F4 5 INCL  W*MACSGL_CRF_DCNT [COUNT DIRECTIVE REFERENCE 
51 8EDO O1F8 327 POPL R GET NS YRBOL BLOCK ADDRESS BACK 
05 O1FB 8 30$:  RSB 
O1FC 369 
O1FC 330 END 
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DLIMSTR 
ENDMCH 
EVALEXPR 
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FSM 
CRFSV_ 
FLGSM_. 
FLGSM_| 
FLGSM_ 
FLGSM 
FLGSA_| 
FLGSA_| 
FLGSM 
FLGSA_ 
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: 747 MACRO. SRCIJCRFSUB.MAR; 1 
Symbol a: " ; MACSHACRO_NAME : nocoeesT x 03 
N : 
EL GSV-OPRND ~ 3 MD = Bono goes 
FLGSV-OPTVFLIDX - ; MF . A0G 
FLGSV“ORDLST . OF NG = 99009 50 
* 1 = 
RPTIRP ° ° ML 
aera a : Rites site 
FLGBV~SPECOP . Se HNBSK-BLKS1Z 44 a8 
FL esv~st0 MF = 000 bie MNBSL_CRSYMF 0900018 
FLGSV_SYM2COL = §0000048 MNBSL_LI 000000F 
enue = Sete ERE 00h 
FLESV-UPDFIL = $0900 7 MNBSL~TXTP 4444 
FLGSV_UPMARG = 9000004 MNBSWFLAG me thst 4'34 
EL OSV ACRE = 0000A008 wn = 90000048 
H = $000000% Mu  $0000068 
L ~ 00000005 MXBSK_BLKSIZ 44 444 
MABSB_ARGNO 00000004 MXBSL_LINK 00000004 
$B°N 0000000¢ MXBSL~PAGES = SooCeoTG 
MABSK~BLKSIZ 00000008 0 = 00000000 
orttere tty 90000000 OPDSH-BB = Bhosooes 
MABSW"DVLEN stesees | xX 03 OPDSM_BW . 9000¢000 
MACS. LPBUF keeekaeee x 03 OPDSM_D FLOAT - 00008000 
MACSAL_CRFDRCTB eeeeeeee XK 03 OPDSM_F = 0000A000 
MACSAL_CRFMCCTB teeeeeee X03 OPD$M_G_FLOAT = 00009000 
MACSAL~CRFOPCTB soome a OPDSM~H"FLOAT = bonnaeey 
micgeney in SecneTN A G2 SEBRARODE = Saun00%p 
a 000113 R - s 
MACSCREF MACRO Bengoiee Re Ok OPDSM-NOT_ 32F men tt 48454 
MACSCREF _OPCODE 000000A9 RG 03 OPDSM_READ = 90000080 
MACSCREF SYM QOO0004F RG 03 OPDSM-VIELD = 00000060 
MACSCRF _ERROR QO00006F RG 03 OPDSM-WRITE = 90000005 
MACSCRE OUTPUT 00000000 RG 03 OPD$S_MODE = 00000005 
MACSCVT“LIN_PAG sanseten kee OPD$S~SIZE = Book O OE 
“OUT~L2x OPD$V~D_FLOAT . 
MACSERRT PUT” enemies Fp OPD$V~FLOAT = Robt biy 
RACSOK_ZERO ners 2 + He 3 SSH 
RACSOL-CRF-FLG ceceeeee, KX O3 OPDSV~SIZE : st 000 
MACSGL_CRF_MCNT teeeeeee§ X03 OPFSM_LASTOPR = 00001000 
RACSeL CRE poe eteereee YX 83 Sereuntastope = : 8 000 
on CNT ekeekeee x PFSV"OPTEXP = 
RACSGLAOPPTR corecess XO PSCSB-NARE C 
MACSGL_SRCPAG teeneeee xX ; PSC$B_SEG 0 
C$GL-STATU eaeeeee eG ae PSCSB-UNUSED 13 
CScT7sc ewe ied EE PSCSK-BLKSIZ A 
CS$GWILST_INST geeeeeee xX ; PSC$K_NO OPTNS F 
MACSGW"LST"LINE teeeeeee x 03 PSCSL_CURLOC 
MACSLAST. CRANCE rere ih PSCSLILINK 9 
MAC + eeeeeere 8 8 6X $3 PSCS$L_MAXLGTH 
MACSLST_PAG_HDR 
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eeekerne 
ereretre 


= 00000081 

VD = boooc ORE 
VF = 00008084 
VG = QO00A088 
= = 00009090 
= 00000084 

vo = 00000090 
va = 00000088 

Vi = 0000008 

iW = 0000000 

we = 0000006 
wd = 0000C068 
wf = 00008064 
WG = Q0000A068 
WH = 00009070 
WL = 00000064 
wO = 00000070 
wQ = 00000068 
Wid = 00000062 
x1 = 00000400 
| x2 = 0000000F 
PSECT name Allocation 

S 00000000 

. BLANK 00000000 

0000001D 

MACS$RO_CODE_P15 OOO001FC 

Phase Page faults 

Initialization 3 0 
Command processing 134 0 
Pass 1 218 0 
Symbol cable sort ? 0 
Pass 7 0 
Symbol table output 42 0 
Psect synopsis output ‘ 0 
Cross-reference output 0 
Assembler run totals 508 0 


ihe working set Limit was 1500 pages. 


8512 bytes (56 pages) of virtual memory were used to butier the intermediate code. 
There were 30 pages of symbol table space allocated to hold 4 


source Lines were read in Pass 1, 


Soooooco[ecoco 
Cooooocoooo 
pole lelelelolajlolo) 
oOOoooooooo 
MOOOCOOMSO 
. . a — . . om . 

OOO] NEWNESS 


03 


¢veesecescoosceeoccoeecco 


SOO —NMorn 
S00009905 
SOOSSSSSS 
MOOO0O—50 
POOOWORW— 


eeeseeeveeee 
COOOWO oO 
CO FWNOOoO 
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LCL 
LCL NOSHR 
SBL NOSHR 


0 non-local and 11 local symbols. 
7 object records in Pass 2. 
22 pages of virtual memory were used to define 17 macros. 


EXE 
EXE 


LCL ores NOEXE NORD 
NOSHR EXE RD 


RD 
RD 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
WRT NOVEC BYTE 

NOWRT NOVEC LONG 
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VAK=11 Macro Run Statistics 5-SEP-1984 01:47:44 CMACRO.SRCICRFSUB.MAR; 1 
¢eeeeeeoceeseecn eee same aeecoane + 
: Macro Library statistics H 
“Macro Library name Macros defined 
me ititten: Hier tt apts 3 
-$255$DUA28: (MACRO.OBJ JMACRO.MLB: 1 5 
$255SDUA28:(SYSLIBISTARLET.MLB; 2 7 
TOTALS (all Libraries) 15 


| 595 GETS were required to define 15 macros. 
There were no errors, warnings or information messaces. 
MACRO/LIS=L1S$:CRFSUB/OBJ=O0BJ$:CRFSUB MSRC$: CRF SUB/UPDATE=(ENHS$: CRF SUB) +LI1B$:MACRO/LIB+SHRLIBS$: SUM/LIB 
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VAX/VMS V4.0. : | PROPRIETARY 


0925 SH-BT13A-SE_ | | EQUIPMENT CORPOR 
CL) VAX/VMS V4.0 NTIAL AND PROPRIE 


